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G08 IIT ii iii iii iii ii iit titi iiiiiiiititiiiiiitiiiiitiiiiii) | 
0005 COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
0006 DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
0007 ALL RIGHTS RESERVED. 
0008 
0009 
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a ® 
* ® 
® ® 
© ® 
* ® 
* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE ®* 
* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
: PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY ®* 
* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
* TRANSFERRED. * 
® ® 
* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
* CORPORATION. * 
® ® 
® ® 
® *® 
® ® 
® ® 
® ® 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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FACILITY: 
ABSTRACT: 


VAX/VMS EDF (EDIT/FDL) UTILITY 


This facility is used to create, modify, and optimize 
FDL specification files. 


ENVIRONMENT: NATIVE/USER MODE 
AUTHOR: Ken F. Henderson Jr. 
CREATION DATE: 27-Mar-1981 

MODIFIED BY: 


v03-008 KFHOO08 Ken Henderson 
Changes for seperate compilation. 


v03-007 KFHOO007 Ken Henderson 
Changed EDFSTERM_SETUP function 
value from BYTE fo INTEGER. 


v03-006 KFHO006 Ken Henderson 
Removed obsolete SYS$routine 
definitions. (now from starlet.pen) 


v03-005 KFHOO0S 


8 Aug 1983 


14 Apr 1983 


22 Nov 1982 


Ken Henderson 11 Oct 1982 


Added support for Acces ~ AC 
Connect, Journal, Shar ng 3 
Changed FDLSSPARSE to FOLS 


thesia: 
ARSE. 
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O008 Modified FDLSCREATE. 
0060 v03-004 KFHOO04 Ken Wengereen 22 Sept 1982 
0061 Added definiti on of 418 
006¢ Removed definition o PORSSEENDS. 
0064 V03-003 KFHO003 Ken Henderson 11 August 1982 
Dose Removed reference te Wer SEND _PARSE. 
006 v03-002 KE HO0OF Ken Henderson 2 April 1982 
0068 Added Ss mala PTR to call to 
006 FDL $GL OBAL 

v03-001 crwoogs enders 23-Mar-1982 


ris Gans ,IBSOUTPUT HELP to “tin 


esecce 
VIiFWNn—OoOw”o 


1 Pascal Ve 4-277 Page 
VMSMASTER: CEDF .SRCJEDFEXTERN.PAS; 


———— 


Eprert RN 


b-dep=1 
Source Listing g: gep- 
ENVIRONMENT ("LIBS:EDFEXTERN'), 
INHERIT ( 
*SYSSLIBRARY: STAeg’ 
*SHRLIBS$: F DLPARDE 
"LIBS: EDFSTRUCT', 
"LIBS:EDFCONST’, 
LIBS:EDFTYPE', 
"LIBS: EDFVAR' 
] 


MODULE EDFEXTERN; 
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Source Listing 
{ +4 
EXTERNAL ROUTINE DECLARATIONS: 
The following functions end precequres are part of the VMS RunTimeLibrary. 


oer eo documented in the RIL Reference Manual and the Utilities Reference 
anual. 


{ + 
These are the ‘Terminal Independent Screen Procedures’. 


CASYNCHRONOUS) FUNCTION LIBSPUT_LINE ( 


ZDESCR TEXTX : CVOLATILE] VARYING CA] OF CHAR: 
VAR LINE_ADV : CVOLATILE] INTEGER; 
FLAGS VOLATILE] INTEGER 


) : INTEGER; EXTERNAL; 
FUNCTION LIBSERASE_LINE ( 


VAR LINE, 
COLUMN : INTEGER 


) : INTEGER; EXTERN; 
FUNCTION LIBSERASE_PAGE ( 


VAR LINE, 
COLUMN : CVOLATILE] INTEGER 


) : INTEGER; EXTERN; 
FUNCTION LIBSSET_CURSOR ( 


VAR LINE, 
COLUMN : CVOLATILE] INTEGER 


) : INTEGER; EXTERN; 
CASYNCHRONOUS) FUNCTION LIBSSET_SCROLL ( 


VAR START_LINE, 
END_LINE  : CVOLATILE] INTEGER 


) : INTEGER; EXTERN; 
FUNCTION LIBSPUT_SCREEN ( 
ZSTDESCR TEXTX : PACKED ARRAY CL..U: INTEGER] OF CHAR; 
VAR LINE, 
LUMN : INTEGER 
) : INTEGER; EXTERN; 


CUNBOUND ,EXTERNAL] FUNCTION LIBSPUT_OUTPUT ( 


ascal Ve seeer? page 
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] 
| 
3 | 
9 XSTDESCR TEXTX : PACKED ARRAY CL..U:INTEGER] OF CHAR | 
: ) : INTEGER; EXTERNAL; 
4 CUNBOUND EXTERNAL] FUNCTION LIBSGET_INPUT ( 
é ZDESCR  INPUT_TEXT : VARYING [AJ OF CHAR: | 
7 %DESCR PROMPT_STR : VARYING CB] OF CHAR: 
g VAR LENGTH : INTEGER 
9 ) : INTEGER; EXTERNAL; 
: FUNCTION LIBSGET_SCREEN ( 
4 ZDESCR INPUT_TEXT : VARYING ral OF CHAR; 
5 ZDESCR PROMPT_STR : VARYING [CB] OF CHAR: 
VAR LENGTH INTEGER 
) : INTEGER; EXTERN; | 
FUNCTION LIBSSCREEN_INFO (¢ 
FLAGS : SCRISTYPE;: 
DEV_TYPE : INTEGER; 
LINE_WIDTH : INTEGER; 
LINES_PER_PAGE INTEGER 


) : INTEGER; EXTERN; 
FUNCTION LIBSDOWN_SCROLL : INTEGER; EXTERN; 


WN "SO VDONOULWN—O0OO~n 


{ + 
The following is the famed ‘‘TPARSE’’ table-driven parsing routine. 
FUNCTION LIBSTPARSE ( 
VAR PARAM_BLK : CVOLATILE] TPASTYPE; 
IMMED STATE_TBL =: INTEGER; 
IMMED KEY_TBL : INTEGER 


) : INTEGER; EXTERN; 


x 
* 


{ + 
ig | following are general string handling routines. 


PROCEDURE STRSUPCASE ( 
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98 VAR DST : VOLATILE) DESCRIPTOR; 
199 VAR SRC : CVOLATILE] DESCRIPTOR | 
so ); EXTERN; 
$0e 
203 PROCEDURE STRSTRIM ( 

205 VAR DST : CVOLATILE] DESCRIPTOR; 
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06 MSTDESCR SRC : PACKED ARRAY CL..U: INTEGER] OF CHAR : | 
9 08 ); EXTERN; 
9 19 CASYNCHRONOUS] PROCEDURE STRSFREE1_DX ( 
Ogle VAR DSC : CVOLATILE] DESCRIPTOR 
osie ); EXTERN; 
0216 CASYNCHRONOUS) FUNCTION LIBSSCOPY_DXDxX ( | 
ath SRC : DESCRIPTOR: 
0219 DST : DESCRIPTOR 
0220 
0221 ) : INTEGER; EXTERN; 
0998 FUNCTION OTSS$SCOPY_DXDX ( | 
0225 ZSTDESCR SRC : PACKED ARRAY CL..U: INTEGER] OF CHAR; 
de2e DST : DESCRIPTOR | 
0228 ) : INTEGER; EXTERN; 
0229 
9230 FUNCTION OTSSCVT_TI_L (¢ | 
0232 STR : DESCRIPTOR; | 
0235 VAR NUM : INTEGER 
0235 ) : INTEGER; EXTERN; 
0236 | 
0337 FUNCTION LIBSDATE_TIME ( | 
0239 XSTDESCR DST : PACKED ARRAY CL..U: INTEGER] OF CHAR | 
0241 ) : INTEGER; EXTERN; 


024 { + | 
0266 This routine will set a bit field (SRC) in a location (BASE). | 

34 CASYNCHRONOUS] PROCEDURE LIBSINSV ( 

24 SRC, 

24 POS : LONG; 

2 SIZE : BYTE; 

2 VAR BASE : LONG 

2 ); EXTERN; 


{ + 
“yy routine will get a bit field from a location. 
CASYNCHRONOUS) FUNCTION LIBSEXTZV ( 
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" 8 ) : INTEGER; EXTERN | § 
0265 0 
0266 { + Q 
BcOf This routine does a schdwk/hiber to wait a specified length of time. 
0369 CASYNCHRONOUS) PROCEDURE LIBSWAIT ( 8 
0271 SECONDS : REAL 0 
os¢§ 0 
027 ); EXTERN; 0 
0274 0 
0275 { + 0 
og78 This routine does our help processing for us. 8 
osfe FUNCTION LBRSOUTPUT_HELP ( 
0280 ZIMMED PUT_PTR : INTEGER; 0 
0281 WIDTH : LONG; 0 
0282 ZIMMED LINE : LONG; 0 
0283 ZSTDESCR LIBRARY : PACKED ARRAY CL..U: INTEGER] OF CHAR; 0 
0284 ZIMMED FLAGS : 0 
0285 ZIMMED GET_PTR : INTEGER 0 
0286 0 
0287 ) : INTEGER; EXTERNAL; 0 
0288 0 
0289 { + : 0 
0290 These are used in error handling. 0 
0291 - 0 
0292 | 6 
oSe7 CASYNCHRONOUS] FUNCTION LIBSMATCH_COND ( 

| 
0295 CONDVAL, 0 
0296 COMPVAL. : INTEGER 0 
0297 | 0 
0298 ) : BOOLEAN; EXTERN; 0 
0299 0 
Beno PROCEDURE LIBSSIGNAL ( | 
0302 ZIMMED CONDITION INTEGER; 0 
0303 ZIMMED _— GS : INTEGER; 0 
0304 ZIMMED ARG1 : INTEGER; 0 
0305 ZIMMED ARG? : INTEGER 8 
§309 ); EXTERN; 0 
0308 
h44 PROCEDURE LIBSSTOP ( 
0311 ZIMMED CONDITION : INTEGER; 
O36 ZIMMED NUMARGS : INTEGER; 
031 ZIMMED ARG1 : INTEGER; 
dete ZIMMED ARG2 INTEGER 
O316 ); EXTERN; 
0317 
Bais { + 3 
319 These are used to process the DCL command string. 
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v04-000 Source Listing = 8ep-19 4 90:43:85 PT KSUMSMASTER  TEDFSRCJEDFEXTERN.PAS TY (3) | 
: S 
FUNCTION CLISGET_VALUE ( 
03 ZSTDESCR SELECT : PACKED ARRAY CL..U: INTEGER] OF CHAR; 
8 VAR RETURNED : DESCRIPTOR 
033 ) : INTEGER; EXTERN; | 
O3¢ FUNCTION CLISPRESENT ( | 
Oe8 ZSTDESCR TEXTX : PACKED ARRAY CL..U: INTEGER] OF CHAR | 
33 ) : INTEGER; EXTERN; | 
33 
33 
33 { + 
He The following is used to plot graphs on the terminal. | 
3 PROCEDURE EDFSGRAPH ( 
3 


GRAPH_TYPE : INTEGER; 
XDESCR XY_ARRAY : XY_PLOT_TYPE; 
CURRENT_INDEX, 


LAST INDEX, 
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4 
4 
34 
x | 
34 
34 _HIGH, | 
34 Y~LOW 
34 YTINCR : INTEGER; | 
34 ZSTDESCR Y~LABEL : PACKED ARRAY CL..U: INTEGER] OF CHAR; 
ee ZDESCR COLOR_ARRAY : XY_PLOT_TYPE 
35 ) ; EXTERN; 
35 
35 { + 
35 The following is used to parse the input FOL file for storage into the 
3 database. 
32 FUNCTION FDLSPARSE ( 
35 FNM : DESCRIPTOR; 
036 VAR FAB : FAB_PTR; 
036 VAR RAB : FAB-PTR; 
036 ZREF FLG : FDL2STYPE | 
0364 ) : INTEGER; EXTERN; 
0365 | 
0366 { + 
0367 The fol toutes is used to deallocate the memory used by the RMS blocks 
te which are allocated by FDLSPARSE. 
0370 FUNCTION FDLSRELEASE ( | 
0372 FAB : FAB_PTR; 
0375 RAB : FABIPTR | 
b37¢ ) : INTEGER; EXTERN; | 
0376 
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{ + 
The following is used to first parse an input FOL file and then create the 
RMS file specified by it. : oo z 
FUNCTION FDLSCREATE ( 


FDLNAM : DESCRIPTOR; 

OUTNAM : DESCRIPTOR; 

DF TNAM : DESCRIPTOR; 
VAR RESNAM : Mattes DESCRIPTOR; 
VAR FIDBLK : NEST Yee FID; 
ZREF FLAGS FDL2STYPE 


) : INTEGER; EXTERN; 


the following routines are used to interface to TTDRV. 
FUNCTION EDFSTERM_SETUP : INTEGER; EXTERN; 

PROCEDURE EDFSRESET_TERM; EXTERN; 

PROCEDURE EDFSCTRLCAST; EXTERN; 

the rol Leung routines are in other modules of EDF. 

y were FORWARD declared before seperate compilation (Pascal V2) was used. 
CEXTERNALJ FUNCTION QUERY (OFFSET : INTEGER) : BOOLEAN; EXTERN; 
CEXTERNAL] PROCEDURE POINT_AT_DEFINITION; EXTERN; 

CASYNCHRGNOUS ,EXTERNAL] PROCEDURE EDFSRESET_SCROLL; EXTERN; 

CEXTERNAL) PROCEDURE INPUT_ANALYSIS_FILE; EXTERN; 

CEXTERNAL] PROCEDURE SHOW_ALL_PRIMARIES; EXTERN; 

CEXTERNAL] PROCEDURE SHOW_PRIMARY_SECTION (TEST : LINE_OBJECT); EXTERN; 
CEXTERNAL) PROCEDURE SHOW_CUR_PRI_SEC (PLUS_VALUE : BOOLEAN); EXTERN; 
CEXTERNAL) FUNCTION NATURAL_DEPTH : INTEGER; EXTERN; 


END. 
{ End of file SRCS:EDFEXTERN.PAS } 
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rte Pascal Compilation Statistics $7300 138s 3:48:85 TT KSUNGMASTER TEDF SRCJEDFEXTERN.PAGLY (3) 
COMMAND QUALIFIERS 
PASCAL/MACHINE/NODEBUG/NOCHECK/LIS=LIS$:EDFEXTERN/OBJ=OBJ$:EDFEXTERN MSRC$:EDFEXTERN 


} 
| 
CHE CK=(NOBOUNDS , NOCASE EEL EC TORS. NOOVERF LOW,NOPOINTERS , NOSUBRANGE ) | 


/DEBUG= (NOSTMED WOTRATEBAC 
N OF, enaererrew. -PEN; 1 


tts gb teas EDF EXTERN O 


5 DF 
/NOCROSS REFERENCE /ERROR_LIMIT= 


55 /NOG_ OPLOATING /MACHINE CODE /NOOLD_VERSION /OPTIMIZE /NOSTANDARD /WARNINGS 


COMPILER INTERNAL TIMING 


Phase Faults CPU Time eens Time 
Initialization 71 00:00.4 9:91 -3 
Source Analysis 56 00:10.1 02:31.9 
Source List 4 00:00.7 00:02.4 
Tree Construction 0 00:00.0 00:00.0 
Flow Analysis 0 00:00.0 00:00.0 
Profit “hralysi 0 00:00.0 00:00.0 
Context Analysis 0 00:00.0 00:00.0 
Name Packi ng 0 00:00.0 00:00.0 
Code Selection 8 00:00.0 00:00.0 
Final 9 00:00.7 00:01.9 
TOTAL 780 00:11.9 02:38.2 


COMPILATION STATISTICS 


CPU Time 00:11.9 (2130 Lines/Minute) 
Elapsed fase 02:38.2 
Page Faults: 780 
Compilation Complete 
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